home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 60 / IOPROG_60.ISO / soft / c++ / gsl-1.1.1-setup.exe / {app} / src / cblas / test_rotm.c < prev    next >
Encoding:
C/C++ Source or Header  |  2002-04-18  |  36.0 KB  |  1,512 lines

  1. #include <gsl/gsl_test.h>
  2. #include <gsl/gsl_ieee_utils.h>
  3. #include <gsl/gsl_math.h>
  4. #include <gsl/gsl_cblas.h>
  5.  
  6. #include "tests.h"
  7.  
  8. void
  9. test_rotm (void) {
  10. const double flteps = 1e-4, dbleps = 1e-6;
  11.   {
  12.    int N = 1;
  13.    float h[] = { -1.0f, -4.44982e+03f, -15.5826f, 7.091334e+04f, 2.95912e+04f };
  14.    float X[] = { -0.034f };
  15.    int incX = 1;
  16.    float Y[] = { -0.56f };
  17.    int incY = -1;
  18.    float x_expected[] = { -3.956017e+04f };
  19.    float y_expected[] = { -1.657054e+04f };
  20.    cblas_srotm(N, X, incX, Y, incY, h);
  21.    {
  22.      int i;
  23.      for (i = 0; i < 1; i++) {
  24.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 654)");
  25.      }
  26.    };
  27.    {
  28.      int i;
  29.      for (i = 0; i < 1; i++) {
  30.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 655)");
  31.      }
  32.    };
  33.   };
  34.  
  35.  
  36.   {
  37.    int N = 1;
  38.    float h[] = { 0.0f, 15.9728f, 6.400638e+03f, 1.733082e-05f, 1.524511e-04f };
  39.    float X[] = { -0.034f };
  40.    int incX = 1;
  41.    float Y[] = { -0.56f };
  42.    int incY = -1;
  43.    float x_expected[] = { -0.0340097f };
  44.    float y_expected[] = { -218.182f };
  45.    cblas_srotm(N, X, incX, Y, incY, h);
  46.    {
  47.      int i;
  48.      for (i = 0; i < 1; i++) {
  49.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 656)");
  50.      }
  51.    };
  52.    {
  53.      int i;
  54.      for (i = 0; i < 1; i++) {
  55.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 657)");
  56.      }
  57.    };
  58.   };
  59.  
  60.  
  61.   {
  62.    int N = 1;
  63.    float h[] = { 1.0f, 5.688411e+04f, 5.914789e+03f, 0.00210473f, 0.0231019f };
  64.    float X[] = { -0.034f };
  65.    int incX = 1;
  66.    float Y[] = { -0.56f };
  67.    int incY = -1;
  68.    float x_expected[] = { -1.93462e+03f };
  69.    float y_expected[] = { 0.0210629f };
  70.    cblas_srotm(N, X, incX, Y, incY, h);
  71.    {
  72.      int i;
  73.      for (i = 0; i < 1; i++) {
  74.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 658)");
  75.      }
  76.    };
  77.    {
  78.      int i;
  79.      for (i = 0; i < 1; i++) {
  80.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 659)");
  81.      }
  82.    };
  83.   };
  84.  
  85.  
  86.   {
  87.    int N = 1;
  88.    float h[] = { -2.0f, -0.582083f, 0.00103161f, -3.429851e-05f, 7.411469e-05f };
  89.    float X[] = { -0.034f };
  90.    int incX = 1;
  91.    float Y[] = { -0.56f };
  92.    int incY = -1;
  93.    float x_expected[] = { -0.034f };
  94.    float y_expected[] = { -0.56f };
  95.    cblas_srotm(N, X, incX, Y, incY, h);
  96.    {
  97.      int i;
  98.      for (i = 0; i < 1; i++) {
  99.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 660)");
  100.      }
  101.    };
  102.    {
  103.      int i;
  104.      for (i = 0; i < 1; i++) {
  105.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 661)");
  106.      }
  107.    };
  108.   };
  109.  
  110.  
  111.   {
  112.    int N = 1;
  113.    float h[] = { -1.0f, 115.163f, -6.715448e+04f, -258.695f, -16.2552f };
  114.    float X[] = { -0.034f };
  115.    int incX = 1;
  116.    float Y[] = { -0.56f };
  117.    int incY = -1;
  118.    float x_expected[] = { 140.954f };
  119.    float y_expected[] = { 2.292355e+03f };
  120.    cblas_srotm(N, X, incX, Y, incY, h);
  121.    {
  122.      int i;
  123.      for (i = 0; i < 1; i++) {
  124.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 662)");
  125.      }
  126.    };
  127.    {
  128.      int i;
  129.      for (i = 0; i < 1; i++) {
  130.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 663)");
  131.      }
  132.    };
  133.   };
  134.  
  135.  
  136.   {
  137.    int N = 1;
  138.    float h[] = { 0.0f, -3.314862e+03f, -442.976f, -214.586f, -25.9716f };
  139.    float X[] = { -0.034f };
  140.    int incX = 1;
  141.    float Y[] = { -0.56f };
  142.    int incY = -1;
  143.    float x_expected[] = { 120.134f };
  144.    float y_expected[] = { 14.5012f };
  145.    cblas_srotm(N, X, incX, Y, incY, h);
  146.    {
  147.      int i;
  148.      for (i = 0; i < 1; i++) {
  149.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 664)");
  150.      }
  151.    };
  152.    {
  153.      int i;
  154.      for (i = 0; i < 1; i++) {
  155.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 665)");
  156.      }
  157.    };
  158.   };
  159.  
  160.  
  161.   {
  162.    int N = 1;
  163.    float h[] = { 1.0f, -1.177304e+03f, -1.236662e-04f, -0.186585f, 1.15841f };
  164.    float X[] = { -0.034f };
  165.    int incX = 1;
  166.    float Y[] = { -0.56f };
  167.    int incY = -1;
  168.    float x_expected[] = { 39.4683f };
  169.    float y_expected[] = { -0.614711f };
  170.    cblas_srotm(N, X, incX, Y, incY, h);
  171.    {
  172.      int i;
  173.      for (i = 0; i < 1; i++) {
  174.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 666)");
  175.      }
  176.    };
  177.    {
  178.      int i;
  179.      for (i = 0; i < 1; i++) {
  180.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 667)");
  181.      }
  182.    };
  183.   };
  184.  
  185.  
  186.   {
  187.    int N = 1;
  188.    float h[] = { -2.0f, -88.9796f, 0.808226f, 1.106582e-05f, -0.00862288f };
  189.    float X[] = { -0.034f };
  190.    int incX = 1;
  191.    float Y[] = { -0.56f };
  192.    int incY = -1;
  193.    float x_expected[] = { -0.034f };
  194.    float y_expected[] = { -0.56f };
  195.    cblas_srotm(N, X, incX, Y, incY, h);
  196.    {
  197.      int i;
  198.      for (i = 0; i < 1; i++) {
  199.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 668)");
  200.      }
  201.    };
  202.    {
  203.      int i;
  204.      for (i = 0; i < 1; i++) {
  205.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 669)");
  206.      }
  207.    };
  208.   };
  209.  
  210.  
  211.   {
  212.    int N = 1;
  213.    float h[] = { -1.0f, -0.00225865f, 8.338551e+04f, -1.98282f, -2.409905e-05f };
  214.    float X[] = { -0.034f };
  215.    int incX = 1;
  216.    float Y[] = { -0.56f };
  217.    int incY = -1;
  218.    float x_expected[] = { 1.11046f };
  219.    float y_expected[] = { -2.835107e+03f };
  220.    cblas_srotm(N, X, incX, Y, incY, h);
  221.    {
  222.      int i;
  223.      for (i = 0; i < 1; i++) {
  224.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 670)");
  225.      }
  226.    };
  227.    {
  228.      int i;
  229.      for (i = 0; i < 1; i++) {
  230.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 671)");
  231.      }
  232.    };
  233.   };
  234.  
  235.  
  236.   {
  237.    int N = 1;
  238.    float h[] = { 0.0f, 0.258779f, 74.2802f, 0.923299f, 4.847128e+03f };
  239.    float X[] = { -0.034f };
  240.    int incX = 1;
  241.    float Y[] = { -0.56f };
  242.    int incY = -1;
  243.    float x_expected[] = { -0.551048f };
  244.    float y_expected[] = { -3.08553f };
  245.    cblas_srotm(N, X, incX, Y, incY, h);
  246.    {
  247.      int i;
  248.      for (i = 0; i < 1; i++) {
  249.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 672)");
  250.      }
  251.    };
  252.    {
  253.      int i;
  254.      for (i = 0; i < 1; i++) {
  255.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 673)");
  256.      }
  257.    };
  258.   };
  259.  
  260.  
  261.   {
  262.    int N = 1;
  263.    double h[] = { -1.0, -8.00850735044, 0.0204647351647, 1.898461360078e-04, -4.32701487194 };
  264.    double X[] = { 0.84 };
  265.    int incX = 1;
  266.    double Y[] = { -0.711 };
  267.    int incY = -1;
  268.    double x_expected[] = { -6.72728115497 };
  269.    double y_expected[] = { 3.09369795149 };
  270.    cblas_drotm(N, X, incX, Y, incY, h);
  271.    {
  272.      int i;
  273.      for (i = 0; i < 1; i++) {
  274.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 674)");
  275.      }
  276.    };
  277.    {
  278.      int i;
  279.      for (i = 0; i < 1; i++) {
  280.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 675)");
  281.      }
  282.    };
  283.   };
  284.  
  285.  
  286.   {
  287.    int N = 1;
  288.    double h[] = { 0.0, 1.230610998905e+04, 210.056650134, 9.20757074452, 2.072879691524e+03 };
  289.    double X[] = { 0.84 };
  290.    int incX = 1;
  291.    double Y[] = { -0.711 };
  292.    int incY = -1;
  293.    double x_expected[] = { -5.70658279935 };
  294.    double y_expected[] = { 175.736586112 };
  295.    cblas_drotm(N, X, incX, Y, incY, h);
  296.    {
  297.      int i;
  298.      for (i = 0; i < 1; i++) {
  299.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 676)");
  300.      }
  301.    };
  302.    {
  303.      int i;
  304.      for (i = 0; i < 1; i++) {
  305.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 677)");
  306.      }
  307.    };
  308.   };
  309.  
  310.  
  311.   {
  312.    int N = 1;
  313.    double h[] = { 1.0, -1.244580625511e+03, 1.11154682624, 2.269384716089e-05, -0.0143785338883 };
  314.    double X[] = { 0.84 };
  315.    int incX = 1;
  316.    double Y[] = { -0.711 };
  317.    int incY = -1;
  318.    double x_expected[] = { -1.046158725429e+03 };
  319.    double y_expected[] = { -0.829776862405 };
  320.    cblas_drotm(N, X, incX, Y, incY, h);
  321.    {
  322.      int i;
  323.      for (i = 0; i < 1; i++) {
  324.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 678)");
  325.      }
  326.    };
  327.    {
  328.      int i;
  329.      for (i = 0; i < 1; i++) {
  330.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 679)");
  331.      }
  332.    };
  333.   };
  334.  
  335.  
  336.   {
  337.    int N = 1;
  338.    double h[] = { -2.0, 293.927527276, -2.614737743134e+03, 10.3164975867, -7.947030813329e+03 };
  339.    double X[] = { 0.84 };
  340.    int incX = 1;
  341.    double Y[] = { -0.711 };
  342.    int incY = -1;
  343.    double x_expected[] = { 0.84 };
  344.    double y_expected[] = { -0.711 };
  345.    cblas_drotm(N, X, incX, Y, incY, h);
  346.    {
  347.      int i;
  348.      for (i = 0; i < 1; i++) {
  349.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 680)");
  350.      }
  351.    };
  352.    {
  353.      int i;
  354.      for (i = 0; i < 1; i++) {
  355.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 681)");
  356.      }
  357.    };
  358.   };
  359.  
  360.  
  361.   {
  362.    int N = 1;
  363.    double h[] = { -1.0, -0.0178609251786, 0.00983044958941, 105.944529127, 1.687350579234e-05 };
  364.    double X[] = { 0.84 };
  365.    int incX = 1;
  366.    double Y[] = { -0.711 };
  367.    int incY = -1;
  368.    double x_expected[] = { -75.3415633866 };
  369.    double y_expected[] = { 0.00824558059248 };
  370.    cblas_drotm(N, X, incX, Y, incY, h);
  371.    {
  372.      int i;
  373.      for (i = 0; i < 1; i++) {
  374.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 682)");
  375.      }
  376.    };
  377.    {
  378.      int i;
  379.      for (i = 0; i < 1; i++) {
  380.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 683)");
  381.      }
  382.    };
  383.   };
  384.  
  385.  
  386.   {
  387.    int N = 1;
  388.    double h[] = { 0.0, 6.241999071283e-05, 2.495425882445e+03, 304.604891146, 1.604644714854e+04 };
  389.    double X[] = { 0.84 };
  390.    int incX = 1;
  391.    double Y[] = { -0.711 };
  392.    int incY = -1;
  393.    double x_expected[] = { -215.734077605 };
  394.    double y_expected[] = { 2.095446741254e+03 };
  395.    cblas_drotm(N, X, incX, Y, incY, h);
  396.    {
  397.      int i;
  398.      for (i = 0; i < 1; i++) {
  399.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 684)");
  400.      }
  401.    };
  402.    {
  403.      int i;
  404.      for (i = 0; i < 1; i++) {
  405.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 685)");
  406.      }
  407.    };
  408.   };
  409.  
  410.  
  411.   {
  412.    int N = 1;
  413.    double h[] = { 1.0, -0.058097639487, 8.386083625428e+03, -10.5233229994, 184.653245391 };
  414.    double X[] = { 0.84 };
  415.    int incX = 1;
  416.    double Y[] = { -0.711 };
  417.    int incY = -1;
  418.    double x_expected[] = { -0.759802017169 };
  419.    double y_expected[] = { -132.128457473 };
  420.    cblas_drotm(N, X, incX, Y, incY, h);
  421.    {
  422.      int i;
  423.      for (i = 0; i < 1; i++) {
  424.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 686)");
  425.      }
  426.    };
  427.    {
  428.      int i;
  429.      for (i = 0; i < 1; i++) {
  430.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 687)");
  431.      }
  432.    };
  433.   };
  434.  
  435.  
  436.   {
  437.    int N = 1;
  438.    double h[] = { -2.0, -92.8754629217, 1.467547244529e-04, -3.197881072301e-04, -1.89874629713 };
  439.    double X[] = { 0.84 };
  440.    int incX = 1;
  441.    double Y[] = { -0.711 };
  442.    int incY = -1;
  443.    double x_expected[] = { 0.84 };
  444.    double y_expected[] = { -0.711 };
  445.    cblas_drotm(N, X, incX, Y, incY, h);
  446.    {
  447.      int i;
  448.      for (i = 0; i < 1; i++) {
  449.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 688)");
  450.      }
  451.    };
  452.    {
  453.      int i;
  454.      for (i = 0; i < 1; i++) {
  455.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 689)");
  456.      }
  457.    };
  458.   };
  459.  
  460.  
  461.   {
  462.    int N = 1;
  463.    double h[] = { -1.0, -0.0961996230646, -2.248344186185e-05, -316.856396787, 1.663969157848e+03 };
  464.    double X[] = { 0.84 };
  465.    int incX = 1;
  466.    double Y[] = { -0.711 };
  467.    int incY = -1;
  468.    double x_expected[] = { 225.204090432 };
  469.    double y_expected[] = { -1.183082090116e+03 };
  470.    cblas_drotm(N, X, incX, Y, incY, h);
  471.    {
  472.      int i;
  473.      for (i = 0; i < 1; i++) {
  474.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 690)");
  475.      }
  476.    };
  477.    {
  478.      int i;
  479.      for (i = 0; i < 1; i++) {
  480.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 691)");
  481.      }
  482.    };
  483.   };
  484.  
  485.  
  486.   {
  487.    int N = 1;
  488.    double h[] = { 0.0, -201.862043128, 4.999906166451e-04, -0.0653365534487, 586.454083328 };
  489.    double X[] = { 0.84 };
  490.    int incX = 1;
  491.    double Y[] = { -0.711 };
  492.    int incY = -1;
  493.    double x_expected[] = { 0.886454289502 };
  494.    double y_expected[] = { -0.710580007882 };
  495.    cblas_drotm(N, X, incX, Y, incY, h);
  496.    {
  497.      int i;
  498.      for (i = 0; i < 1; i++) {
  499.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 692)");
  500.      }
  501.    };
  502.    {
  503.      int i;
  504.      for (i = 0; i < 1; i++) {
  505.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 693)");
  506.      }
  507.    };
  508.   };
  509.  
  510.  
  511.   {
  512.    int N = 1;
  513.    float h[] = { -1.0f, 162.86f, 1.379231e-04f, 9.67285f, 0.929218f };
  514.    float X[] = { 0.629f };
  515.    int incX = -1;
  516.    float Y[] = { 0.386f };
  517.    int incY = 1;
  518.    float x_expected[] = { 106.173f };
  519.    float y_expected[] = { 0.358765f };
  520.    cblas_srotm(N, X, incX, Y, incY, h);
  521.    {
  522.      int i;
  523.      for (i = 0; i < 1; i++) {
  524.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 694)");
  525.      }
  526.    };
  527.    {
  528.      int i;
  529.      for (i = 0; i < 1; i++) {
  530.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 695)");
  531.      }
  532.    };
  533.   };
  534.  
  535.  
  536.   {
  537.    int N = 1;
  538.    float h[] = { 0.0f, 537.387f, -21.6404f, -1.017074e+03f, -1.730546e-05f };
  539.    float X[] = { 0.629f };
  540.    int incX = -1;
  541.    float Y[] = { 0.386f };
  542.    int incY = 1;
  543.    float x_expected[] = { -391.961f };
  544.    float y_expected[] = { -13.2258f };
  545.    cblas_srotm(N, X, incX, Y, incY, h);
  546.    {
  547.      int i;
  548.      for (i = 0; i < 1; i++) {
  549.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 696)");
  550.      }
  551.    };
  552.    {
  553.      int i;
  554.      for (i = 0; i < 1; i++) {
  555.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 697)");
  556.      }
  557.    };
  558.   };
  559.  
  560.  
  561.   {
  562.    int N = 1;
  563.    float h[] = { 1.0f, -1.339977e-05f, 0.00522784f, 2.020352e-05f, -0.0654088f };
  564.    float X[] = { 0.629f };
  565.    int incX = -1;
  566.    float Y[] = { 0.386f };
  567.    int incY = 1;
  568.    float x_expected[] = { 0.385992f };
  569.    float y_expected[] = { -0.654248f };
  570.    cblas_srotm(N, X, incX, Y, incY, h);
  571.    {
  572.      int i;
  573.      for (i = 0; i < 1; i++) {
  574.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 698)");
  575.      }
  576.    };
  577.    {
  578.      int i;
  579.      for (i = 0; i < 1; i++) {
  580.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 699)");
  581.      }
  582.    };
  583.   };
  584.  
  585.  
  586.   {
  587.    int N = 1;
  588.    float h[] = { -2.0f, -50.922f, 31.5261f, -0.194913f, 0.206417f };
  589.    float X[] = { 0.629f };
  590.    int incX = -1;
  591.    float Y[] = { 0.386f };
  592.    int incY = 1;
  593.    float x_expected[] = { 0.629f };
  594.    float y_expected[] = { 0.386f };
  595.    cblas_srotm(N, X, incX, Y, incY, h);
  596.    {
  597.      int i;
  598.      for (i = 0; i < 1; i++) {
  599.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 700)");
  600.      }
  601.    };
  602.    {
  603.      int i;
  604.      for (i = 0; i < 1; i++) {
  605.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 701)");
  606.      }
  607.    };
  608.   };
  609.  
  610.  
  611.   {
  612.    int N = 1;
  613.    float h[] = { -1.0f, 1.15659f, 2.599832e+04f, 435.891f, 1.546671e+03f };
  614.    float X[] = { 0.629f };
  615.    int incX = -1;
  616.    float Y[] = { 0.386f };
  617.    int incY = 1;
  618.    float x_expected[] = { 168.981f };
  619.    float y_expected[] = { 1.694996e+04f };
  620.    cblas_srotm(N, X, incX, Y, incY, h);
  621.    {
  622.      int i;
  623.      for (i = 0; i < 1; i++) {
  624.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 702)");
  625.      }
  626.    };
  627.    {
  628.      int i;
  629.      for (i = 0; i < 1; i++) {
  630.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 703)");
  631.      }
  632.    };
  633.   };
  634.  
  635.  
  636.   {
  637.    int N = 1;
  638.    float h[] = { 0.0f, 3.359889e-04f, -0.00134822f, -12.9136f, -5.655622e+04f };
  639.    float X[] = { 0.629f };
  640.    int incX = -1;
  641.    float Y[] = { 0.386f };
  642.    int incY = 1;
  643.    float x_expected[] = { -4.35566f };
  644.    float y_expected[] = { 0.385152f };
  645.    cblas_srotm(N, X, incX, Y, incY, h);
  646.    {
  647.      int i;
  648.      for (i = 0; i < 1; i++) {
  649.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 704)");
  650.      }
  651.    };
  652.    {
  653.      int i;
  654.      for (i = 0; i < 1; i++) {
  655.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 705)");
  656.      }
  657.    };
  658.   };
  659.  
  660.  
  661.   {
  662.    int N = 1;
  663.    float h[] = { 1.0f, 2.75119e-05f, 1.70314f, 18.4063f, 185.731f };
  664.    float X[] = { 0.629f };
  665.    int incX = -1;
  666.    float Y[] = { 0.386f };
  667.    int incY = 1;
  668.    float x_expected[] = { 0.386017f };
  669.    float y_expected[] = { 71.063f };
  670.    cblas_srotm(N, X, incX, Y, incY, h);
  671.    {
  672.      int i;
  673.      for (i = 0; i < 1; i++) {
  674.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 706)");
  675.      }
  676.    };
  677.    {
  678.      int i;
  679.      for (i = 0; i < 1; i++) {
  680.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 707)");
  681.      }
  682.    };
  683.   };
  684.  
  685.  
  686.   {
  687.    int N = 1;
  688.    float h[] = { -2.0f, -1.031009e-04f, -3.378602e+04f, 7.869358e-05f, 157.303f };
  689.    float X[] = { 0.629f };
  690.    int incX = -1;
  691.    float Y[] = { 0.386f };
  692.    int incY = 1;
  693.    float x_expected[] = { 0.629f };
  694.    float y_expected[] = { 0.386f };
  695.    cblas_srotm(N, X, incX, Y, incY, h);
  696.    {
  697.      int i;
  698.      for (i = 0; i < 1; i++) {
  699.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 708)");
  700.      }
  701.    };
  702.    {
  703.      int i;
  704.      for (i = 0; i < 1; i++) {
  705.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 709)");
  706.      }
  707.    };
  708.   };
  709.  
  710.  
  711.   {
  712.    int N = 1;
  713.    float h[] = { -1.0f, 0.00207419f, -89.9374f, -1.40414f, -25.1433f };
  714.    float X[] = { 0.629f };
  715.    int incX = -1;
  716.    float Y[] = { 0.386f };
  717.    int incY = 1;
  718.    float x_expected[] = { -0.540694f };
  719.    float y_expected[] = { -66.276f };
  720.    cblas_srotm(N, X, incX, Y, incY, h);
  721.    {
  722.      int i;
  723.      for (i = 0; i < 1; i++) {
  724.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 710)");
  725.      }
  726.    };
  727.    {
  728.      int i;
  729.      for (i = 0; i < 1; i++) {
  730.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 711)");
  731.      }
  732.    };
  733.   };
  734.  
  735.  
  736.   {
  737.    int N = 1;
  738.    float h[] = { 0.0f, -4.972562e+04f, 3.65698e-05f, 632.116f, 0.195207f };
  739.    float X[] = { 0.629f };
  740.    int incX = -1;
  741.    float Y[] = { 0.386f };
  742.    int incY = 1;
  743.    float x_expected[] = { 244.626f };
  744.    float y_expected[] = { 0.386023f };
  745.    cblas_srotm(N, X, incX, Y, incY, h);
  746.    {
  747.      int i;
  748.      for (i = 0; i < 1; i++) {
  749.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 712)");
  750.      }
  751.    };
  752.    {
  753.      int i;
  754.      for (i = 0; i < 1; i++) {
  755.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 713)");
  756.      }
  757.    };
  758.   };
  759.  
  760.  
  761.   {
  762.    int N = 1;
  763.    double h[] = { -1.0, 8.64768339859, -105.906731008, -347.053994991, -1.28802789909 };
  764.    double X[] = { -0.674 };
  765.    int incX = -1;
  766.    double Y[] = { -0.645 };
  767.    int incY = 1;
  768.    double x_expected[] = { 218.021288159 };
  769.    double y_expected[] = { 72.2119146942 };
  770.    cblas_drotm(N, X, incX, Y, incY, h);
  771.    {
  772.      int i;
  773.      for (i = 0; i < 1; i++) {
  774.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 714)");
  775.      }
  776.    };
  777.    {
  778.      int i;
  779.      for (i = 0; i < 1; i++) {
  780.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 715)");
  781.      }
  782.    };
  783.   };
  784.  
  785.  
  786.   {
  787.    int N = 1;
  788.    double h[] = { 0.0, 0.926057152065, 3.315158944851e-04, -1.203638835886e+03, 0.00197484344868 };
  789.    double X[] = { -0.674 };
  790.    int incX = -1;
  791.    double Y[] = { -0.645 };
  792.    int incY = 1;
  793.    double x_expected[] = { 775.673049147 };
  794.    double y_expected[] = { -0.645223441713 };
  795.    cblas_drotm(N, X, incX, Y, incY, h);
  796.    {
  797.      int i;
  798.      for (i = 0; i < 1; i++) {
  799.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 716)");
  800.      }
  801.    };
  802.    {
  803.      int i;
  804.      for (i = 0; i < 1; i++) {
  805.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 717)");
  806.      }
  807.    };
  808.   };
  809.  
  810.  
  811.   {
  812.    int N = 1;
  813.    double h[] = { 1.0, -9.404298701289e-05, -0.00380843381223, -0.0767212569647, -3.66628238398 };
  814.    double X[] = { -0.674 };
  815.    int incX = -1;
  816.    double Y[] = { -0.645 };
  817.    int incY = 1;
  818.    double x_expected[] = { -0.644936615027 };
  819.    double y_expected[] = { 3.03875213767 };
  820.    cblas_drotm(N, X, incX, Y, incY, h);
  821.    {
  822.      int i;
  823.      for (i = 0; i < 1; i++) {
  824.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 718)");
  825.      }
  826.    };
  827.    {
  828.      int i;
  829.      for (i = 0; i < 1; i++) {
  830.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 719)");
  831.      }
  832.    };
  833.   };
  834.  
  835.  
  836.   {
  837.    int N = 1;
  838.    double h[] = { -2.0, 0.0900662226146, 0.00250500071094, 6.46624826995, -2.159443948633e-05 };
  839.    double X[] = { -0.674 };
  840.    int incX = -1;
  841.    double Y[] = { -0.645 };
  842.    int incY = 1;
  843.    double x_expected[] = { -0.674 };
  844.    double y_expected[] = { -0.645 };
  845.    cblas_drotm(N, X, incX, Y, incY, h);
  846.    {
  847.      int i;
  848.      for (i = 0; i < 1; i++) {
  849.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 720)");
  850.      }
  851.    };
  852.    {
  853.      int i;
  854.      for (i = 0; i < 1; i++) {
  855.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 721)");
  856.      }
  857.    };
  858.   };
  859.  
  860.  
  861.   {
  862.    int N = 1;
  863.    double h[] = { -1.0, 8.011686652935e+03, -23.8989526115, -1.104879849207e+04, 0.108740065261 };
  864.    double X[] = { -0.674 };
  865.    int incX = -1;
  866.    double Y[] = { -0.645 };
  867.    int incY = 1;
  868.    double x_expected[] = { 1.726598223305e+03 };
  869.    double y_expected[] = { 16.0377567181 };
  870.    cblas_drotm(N, X, incX, Y, incY, h);
  871.    {
  872.      int i;
  873.      for (i = 0; i < 1; i++) {
  874.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 722)");
  875.      }
  876.    };
  877.    {
  878.      int i;
  879.      for (i = 0; i < 1; i++) {
  880.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 723)");
  881.      }
  882.    };
  883.   };
  884.  
  885.  
  886.   {
  887.    int N = 1;
  888.    double h[] = { 0.0, 5.162681717012e-05, 48.059409562, -4.701209666609e+04, -6.80333644488e+04 };
  889.    double X[] = { -0.674 };
  890.    int incX = -1;
  891.    double Y[] = { -0.645 };
  892.    int incY = 1;
  893.    double x_expected[] = { 3.032212834963e+04 };
  894.    double y_expected[] = { -33.0370420448 };
  895.    cblas_drotm(N, X, incX, Y, incY, h);
  896.    {
  897.      int i;
  898.      for (i = 0; i < 1; i++) {
  899.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 724)");
  900.      }
  901.    };
  902.    {
  903.      int i;
  904.      for (i = 0; i < 1; i++) {
  905.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 725)");
  906.      }
  907.    };
  908.   };
  909.  
  910.  
  911.   {
  912.    int N = 1;
  913.    double h[] = { 1.0, -5.554806445579e-04, 5.101973060197e+04, -5.932040237374e+03, 3.91045757161 };
  914.    double X[] = { -0.674 };
  915.    int incX = -1;
  916.    double Y[] = { -0.645 };
  917.    int incY = 1;
  918.    double x_expected[] = { -0.644625606046 };
  919.    double y_expected[] = { -1.84824513369 };
  920.    cblas_drotm(N, X, incX, Y, incY, h);
  921.    {
  922.      int i;
  923.      for (i = 0; i < 1; i++) {
  924.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 726)");
  925.      }
  926.    };
  927.    {
  928.      int i;
  929.      for (i = 0; i < 1; i++) {
  930.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 727)");
  931.      }
  932.    };
  933.   };
  934.  
  935.  
  936.   {
  937.    int N = 1;
  938.    double h[] = { -2.0, -1.697234884626e-05, 101.466514367, 5.772202675851e+03, -6.884724590773e-04 };
  939.    double X[] = { -0.674 };
  940.    int incX = -1;
  941.    double Y[] = { -0.645 };
  942.    int incY = 1;
  943.    double x_expected[] = { -0.674 };
  944.    double y_expected[] = { -0.645 };
  945.    cblas_drotm(N, X, incX, Y, incY, h);
  946.    {
  947.      int i;
  948.      for (i = 0; i < 1; i++) {
  949.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 728)");
  950.      }
  951.    };
  952.    {
  953.      int i;
  954.      for (i = 0; i < 1; i++) {
  955.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 729)");
  956.      }
  957.    };
  958.   };
  959.  
  960.  
  961.   {
  962.    int N = 1;
  963.    double h[] = { -1.0, -0.0199779342753, 13.013123509, -17.8393347684, 0.129333249919 };
  964.    double X[] = { -0.674 };
  965.    int incX = -1;
  966.    double Y[] = { -0.645 };
  967.    int incY = 1;
  968.    double x_expected[] = { 11.5198360534 };
  969.    double y_expected[] = { -8.85426519126 };
  970.    cblas_drotm(N, X, incX, Y, incY, h);
  971.    {
  972.      int i;
  973.      for (i = 0; i < 1; i++) {
  974.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 730)");
  975.      }
  976.    };
  977.    {
  978.      int i;
  979.      for (i = 0; i < 1; i++) {
  980.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 731)");
  981.      }
  982.    };
  983.   };
  984.  
  985.  
  986.   {
  987.    int N = 1;
  988.    double h[] = { 0.0, -6.673799053773e+04, 587.759435538, 3.493966594965e+04, 2.098374142331e-05 };
  989.    double X[] = { -0.674 };
  990.    int incX = -1;
  991.    double Y[] = { -0.645 };
  992.    int incY = 1;
  993.    double x_expected[] = { -2.253675853752e+04 };
  994.    double y_expected[] = { -396.794859553 };
  995.    cblas_drotm(N, X, incX, Y, incY, h);
  996.    {
  997.      int i;
  998.      for (i = 0; i < 1; i++) {
  999.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 732)");
  1000.      }
  1001.    };
  1002.    {
  1003.      int i;
  1004.      for (i = 0; i < 1; i++) {
  1005.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 733)");
  1006.      }
  1007.    };
  1008.   };
  1009.  
  1010.  
  1011.   {
  1012.    int N = 1;
  1013.    float h[] = { -1.0f, 0.070033f, 0.034824f, -0.00740144f, -0.153474f };
  1014.    float X[] = { -0.111f };
  1015.    int incX = -1;
  1016.    float Y[] = { -0.103f };
  1017.    int incY = -1;
  1018.    float x_expected[] = { -0.00701131f };
  1019.    float y_expected[] = { 0.0119423f };
  1020.    cblas_srotm(N, X, incX, Y, incY, h);
  1021.    {
  1022.      int i;
  1023.      for (i = 0; i < 1; i++) {
  1024.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 734)");
  1025.      }
  1026.    };
  1027.    {
  1028.      int i;
  1029.      for (i = 0; i < 1; i++) {
  1030.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 735)");
  1031.      }
  1032.    };
  1033.   };
  1034.  
  1035.  
  1036.   {
  1037.    int N = 1;
  1038.    float h[] = { 0.0f, 7.618016e-04f, -0.00396806f, -92.8408f, -0.0018571f };
  1039.    float X[] = { -0.111f };
  1040.    int incX = -1;
  1041.    float Y[] = { -0.103f };
  1042.    int incY = -1;
  1043.    float x_expected[] = { 9.4516f };
  1044.    float y_expected[] = { -0.10256f };
  1045.    cblas_srotm(N, X, incX, Y, incY, h);
  1046.    {
  1047.      int i;
  1048.      for (i = 0; i < 1; i++) {
  1049.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 736)");
  1050.      }
  1051.    };
  1052.    {
  1053.      int i;
  1054.      for (i = 0; i < 1; i++) {
  1055.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 737)");
  1056.      }
  1057.    };
  1058.   };
  1059.  
  1060.  
  1061.   {
  1062.    int N = 1;
  1063.    float h[] = { 1.0f, -5.833806e+03f, 0.00265668f, -587.573f, 0.0972416f };
  1064.    float X[] = { -0.111f };
  1065.    int incX = -1;
  1066.    float Y[] = { -0.103f };
  1067.    int incY = -1;
  1068.    float x_expected[] = { 647.449f };
  1069.    float y_expected[] = { 0.100984f };
  1070.    cblas_srotm(N, X, incX, Y, incY, h);
  1071.    {
  1072.      int i;
  1073.      for (i = 0; i < 1; i++) {
  1074.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 738)");
  1075.      }
  1076.    };
  1077.    {
  1078.      int i;
  1079.      for (i = 0; i < 1; i++) {
  1080.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 739)");
  1081.      }
  1082.    };
  1083.   };
  1084.  
  1085.  
  1086.   {
  1087.    int N = 1;
  1088.    float h[] = { -2.0f, -8.93339e+04f, -5.16022e-05f, 2.589784e-05f, -7.52586f };
  1089.    float X[] = { -0.111f };
  1090.    int incX = -1;
  1091.    float Y[] = { -0.103f };
  1092.    int incY = -1;
  1093.    float x_expected[] = { -0.111f };
  1094.    float y_expected[] = { -0.103f };
  1095.    cblas_srotm(N, X, incX, Y, incY, h);
  1096.    {
  1097.      int i;
  1098.      for (i = 0; i < 1; i++) {
  1099.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 740)");
  1100.      }
  1101.    };
  1102.    {
  1103.      int i;
  1104.      for (i = 0; i < 1; i++) {
  1105.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 741)");
  1106.      }
  1107.    };
  1108.   };
  1109.  
  1110.  
  1111.   {
  1112.    int N = 1;
  1113.    float h[] = { -1.0f, 0.125135f, 0.00586453f, 1.100694e-05f, -0.0137436f };
  1114.    float X[] = { -0.111f };
  1115.    int incX = -1;
  1116.    float Y[] = { -0.103f };
  1117.    int incY = -1;
  1118.    float x_expected[] = { -0.0138912f };
  1119.    float y_expected[] = { 7.64631e-04f };
  1120.    cblas_srotm(N, X, incX, Y, incY, h);
  1121.    {
  1122.      int i;
  1123.      for (i = 0; i < 1; i++) {
  1124.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 742)");
  1125.      }
  1126.    };
  1127.    {
  1128.      int i;
  1129.      for (i = 0; i < 1; i++) {
  1130.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 743)");
  1131.      }
  1132.    };
  1133.   };
  1134.  
  1135.  
  1136.   {
  1137.    int N = 1;
  1138.    float h[] = { 0.0f, -0.0996414f, 0.00505806f, 1.321441e-05f, 1.151406e-04f };
  1139.    float X[] = { -0.111f };
  1140.    int incX = -1;
  1141.    float Y[] = { -0.103f };
  1142.    int incY = -1;
  1143.    float x_expected[] = { -0.111001f };
  1144.    float y_expected[] = { -0.103561f };
  1145.    cblas_srotm(N, X, incX, Y, incY, h);
  1146.    {
  1147.      int i;
  1148.      for (i = 0; i < 1; i++) {
  1149.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 744)");
  1150.      }
  1151.    };
  1152.    {
  1153.      int i;
  1154.      for (i = 0; i < 1; i++) {
  1155.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 745)");
  1156.      }
  1157.    };
  1158.   };
  1159.  
  1160.  
  1161.   {
  1162.    int N = 1;
  1163.    float h[] = { 1.0f, 8.18165f, 169.902f, -1.453316e-05f, 1.539957e+03f };
  1164.    float X[] = { -0.111f };
  1165.    int incX = -1;
  1166.    float Y[] = { -0.103f };
  1167.    int incY = -1;
  1168.    float x_expected[] = { -1.01116f };
  1169.    float y_expected[] = { -158.505f };
  1170.    cblas_srotm(N, X, incX, Y, incY, h);
  1171.    {
  1172.      int i;
  1173.      for (i = 0; i < 1; i++) {
  1174.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 746)");
  1175.      }
  1176.    };
  1177.    {
  1178.      int i;
  1179.      for (i = 0; i < 1; i++) {
  1180.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 747)");
  1181.      }
  1182.    };
  1183.   };
  1184.  
  1185.  
  1186.   {
  1187.    int N = 1;
  1188.    float h[] = { -2.0f, 1.827623e-04f, -0.0528808f, 24.7305f, 328.39f };
  1189.    float X[] = { -0.111f };
  1190.    int incX = -1;
  1191.    float Y[] = { -0.103f };
  1192.    int incY = -1;
  1193.    float x_expected[] = { -0.111f };
  1194.    float y_expected[] = { -0.103f };
  1195.    cblas_srotm(N, X, incX, Y, incY, h);
  1196.    {
  1197.      int i;
  1198.      for (i = 0; i < 1; i++) {
  1199.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 748)");
  1200.      }
  1201.    };
  1202.    {
  1203.      int i;
  1204.      for (i = 0; i < 1; i++) {
  1205.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 749)");
  1206.      }
  1207.    };
  1208.   };
  1209.  
  1210.  
  1211.   {
  1212.    int N = 1;
  1213.    float h[] = { -1.0f, -0.0876053f, 7.858704e+04f, -4.758389e+03f, -0.0114841f };
  1214.    float X[] = { -0.111f };
  1215.    int incX = -1;
  1216.    float Y[] = { -0.103f };
  1217.    int incY = -1;
  1218.    float x_expected[] = { 490.124f };
  1219.    float y_expected[] = { -8.72316e+03f };
  1220.    cblas_srotm(N, X, incX, Y, incY, h);
  1221.    {
  1222.      int i;
  1223.      for (i = 0; i < 1; i++) {
  1224.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 750)");
  1225.      }
  1226.    };
  1227.    {
  1228.      int i;
  1229.      for (i = 0; i < 1; i++) {
  1230.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 751)");
  1231.      }
  1232.    };
  1233.   };
  1234.  
  1235.  
  1236.   {
  1237.    int N = 1;
  1238.    float h[] = { 0.0f, 0.00192188f, -1.031412e-05f, -0.00123957f, 0.312197f };
  1239.    float X[] = { -0.111f };
  1240.    int incX = -1;
  1241.    float Y[] = { -0.103f };
  1242.    int incY = -1;
  1243.    float x_expected[] = { -0.110872f };
  1244.    float y_expected[] = { -0.102999f };
  1245.    cblas_srotm(N, X, incX, Y, incY, h);
  1246.    {
  1247.      int i;
  1248.      for (i = 0; i < 1; i++) {
  1249.        gsl_test_rel(X[i], x_expected[i], flteps, "srotm(case 752)");
  1250.      }
  1251.    };
  1252.    {
  1253.      int i;
  1254.      for (i = 0; i < 1; i++) {
  1255.        gsl_test_rel(Y[i], y_expected[i], flteps, "srotm(case 753)");
  1256.      }
  1257.    };
  1258.   };
  1259.  
  1260.  
  1261.   {
  1262.    int N = 1;
  1263.    double h[] = { -1.0, -0.0253351881542, -0.105247702585, -7.18405641016, -5.409804811228e+04 };
  1264.    double X[] = { 0.203 };
  1265.    int incX = -1;
  1266.    double Y[] = { -0.03 };
  1267.    int incY = -1;
  1268.    double x_expected[] = { 0.21037864911 };
  1269.    double y_expected[] = { 1.622920078085e+03 };
  1270.    cblas_drotm(N, X, incX, Y, incY, h);
  1271.    {
  1272.      int i;
  1273.      for (i = 0; i < 1; i++) {
  1274.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 754)");
  1275.      }
  1276.    };
  1277.    {
  1278.      int i;
  1279.      for (i = 0; i < 1; i++) {
  1280.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 755)");
  1281.      }
  1282.    };
  1283.   };
  1284.  
  1285.  
  1286.   {
  1287.    int N = 1;
  1288.    double h[] = { 0.0, 8.503080247483e+03, -6.186691885896e-05, -0.201279925805, -5.810746179529e-05 };
  1289.    double X[] = { 0.203 };
  1290.    int incX = -1;
  1291.    double Y[] = { -0.03 };
  1292.    int incY = -1;
  1293.    double x_expected[] = { 0.209038397774 };
  1294.    double y_expected[] = { -0.0300125589845 };
  1295.    cblas_drotm(N, X, incX, Y, incY, h);
  1296.    {
  1297.      int i;
  1298.      for (i = 0; i < 1; i++) {
  1299.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 756)");
  1300.      }
  1301.    };
  1302.    {
  1303.      int i;
  1304.      for (i = 0; i < 1; i++) {
  1305.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 757)");
  1306.      }
  1307.    };
  1308.   };
  1309.  
  1310.  
  1311.   {
  1312.    int N = 1;
  1313.    double h[] = { 1.0, 0.351101212426, 64.9574703355, 3.015315809025e-05, -5.291308403203e-04 };
  1314.    double X[] = { 0.203 };
  1315.    int incX = -1;
  1316.    double Y[] = { -0.03 };
  1317.    int incY = -1;
  1318.    double x_expected[] = { 0.0412735461225 };
  1319.    double y_expected[] = { -0.202984126075 };
  1320.    cblas_drotm(N, X, incX, Y, incY, h);
  1321.    {
  1322.      int i;
  1323.      for (i = 0; i < 1; i++) {
  1324.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 758)");
  1325.      }
  1326.    };
  1327.    {
  1328.      int i;
  1329.      for (i = 0; i < 1; i++) {
  1330.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 759)");
  1331.      }
  1332.    };
  1333.   };
  1334.  
  1335.  
  1336.   {
  1337.    int N = 1;
  1338.    double h[] = { -2.0, 0.0220262018719, -0.00311338149392, -70.6413298654, 31.8952671416 };
  1339.    double X[] = { 0.203 };
  1340.    int incX = -1;
  1341.    double Y[] = { -0.03 };
  1342.    int incY = -1;
  1343.    double x_expected[] = { 0.203 };
  1344.    double y_expected[] = { -0.03 };
  1345.    cblas_drotm(N, X, incX, Y, incY, h);
  1346.    {
  1347.      int i;
  1348.      for (i = 0; i < 1; i++) {
  1349.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 760)");
  1350.      }
  1351.    };
  1352.    {
  1353.      int i;
  1354.      for (i = 0; i < 1; i++) {
  1355.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 761)");
  1356.      }
  1357.    };
  1358.   };
  1359.  
  1360.  
  1361.   {
  1362.    int N = 1;
  1363.    double h[] = { -1.0, 1.549812806922e+04, -4.868519165134e+04, -5.230242596804e+04, 1.58043443456e+04 };
  1364.    double X[] = { 0.203 };
  1365.    int incX = -1;
  1366.    double Y[] = { -0.03 };
  1367.    int incY = -1;
  1368.    double x_expected[] = { 4.715192777093e+03 };
  1369.    double y_expected[] = { -1.035722423559e+04 };
  1370.    cblas_drotm(N, X, incX, Y, incY, h);
  1371.    {
  1372.      int i;
  1373.      for (i = 0; i < 1; i++) {
  1374.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 762)");
  1375.      }
  1376.    };
  1377.    {
  1378.      int i;
  1379.      for (i = 0; i < 1; i++) {
  1380.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 763)");
  1381.      }
  1382.    };
  1383.   };
  1384.  
  1385.  
  1386.   {
  1387.    int N = 1;
  1388.    double h[] = { 0.0, -3.30917942895, -0.0100316602276, -0.0222191220411, -0.0881815578726 };
  1389.    double X[] = { 0.203 };
  1390.    int incX = -1;
  1391.    double Y[] = { -0.03 };
  1392.    int incY = -1;
  1393.    double x_expected[] = { 0.203666573661 };
  1394.    double y_expected[] = { -0.0320364270262 };
  1395.    cblas_drotm(N, X, incX, Y, incY, h);
  1396.    {
  1397.      int i;
  1398.      for (i = 0; i < 1; i++) {
  1399.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 764)");
  1400.      }
  1401.    };
  1402.    {
  1403.      int i;
  1404.      for (i = 0; i < 1; i++) {
  1405.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 765)");
  1406.      }
  1407.    };
  1408.   };
  1409.  
  1410.  
  1411.   {
  1412.    int N = 1;
  1413.    double h[] = { 1.0, 5.68327898035, 1.646867755046e-04, -0.106527931872, -28.2458905362 };
  1414.    double X[] = { 0.203 };
  1415.    int incX = -1;
  1416.    double Y[] = { -0.03 };
  1417.    int incY = -1;
  1418.    double x_expected[] = { 1.12370563301 };
  1419.    double y_expected[] = { 0.644376716086 };
  1420.    cblas_drotm(N, X, incX, Y, incY, h);
  1421.    {
  1422.      int i;
  1423.      for (i = 0; i < 1; i++) {
  1424.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 766)");
  1425.      }
  1426.    };
  1427.    {
  1428.      int i;
  1429.      for (i = 0; i < 1; i++) {
  1430.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 767)");
  1431.      }
  1432.    };
  1433.   };
  1434.  
  1435.  
  1436.   {
  1437.    int N = 1;
  1438.    double h[] = { -2.0, 2.20585352008, 1.117638462348e+03, -0.116329468158, 0.00362096329059 };
  1439.    double X[] = { 0.203 };
  1440.    int incX = -1;
  1441.    double Y[] = { -0.03 };
  1442.    int incY = -1;
  1443.    double x_expected[] = { 0.203 };
  1444.    double y_expected[] = { -0.03 };
  1445.    cblas_drotm(N, X, incX, Y, incY, h);
  1446.    {
  1447.      int i;
  1448.      for (i = 0; i < 1; i++) {
  1449.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 768)");
  1450.      }
  1451.    };
  1452.    {
  1453.      int i;
  1454.      for (i = 0; i < 1; i++) {
  1455.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 769)");
  1456.      }
  1457.    };
  1458.   };
  1459.  
  1460.  
  1461.   {
  1462.    int N = 1;
  1463.    double h[] = { -1.0, -0.00182683798892, -2.288460066516e-05, -37.55844708, -9.54075659826e-05 };
  1464.    double X[] = { 0.203 };
  1465.    int incX = -1;
  1466.    double Y[] = { -0.03 };
  1467.    int incY = -1;
  1468.    double x_expected[] = { 1.12638256429 };
  1469.    double y_expected[] = { -1.783346955549e-06 };
  1470.    cblas_drotm(N, X, incX, Y, incY, h);
  1471.    {
  1472.      int i;
  1473.      for (i = 0; i < 1; i++) {
  1474.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 770)");
  1475.      }
  1476.    };
  1477.    {
  1478.      int i;
  1479.      for (i = 0; i < 1; i++) {
  1480.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 771)");
  1481.      }
  1482.    };
  1483.   };
  1484.  
  1485.  
  1486.   {
  1487.    int N = 1;
  1488.    double h[] = { 0.0, 1.02690456955e-04, -20.1292302013, -1.703870486677e-04, 5.17477399477 };
  1489.    double X[] = { 0.203 };
  1490.    int incX = -1;
  1491.    double Y[] = { -0.03 };
  1492.    int incY = -1;
  1493.    double x_expected[] = { 0.203005111611 };
  1494.    double y_expected[] = { -4.11623373087 };
  1495.    cblas_drotm(N, X, incX, Y, incY, h);
  1496.    {
  1497.      int i;
  1498.      for (i = 0; i < 1; i++) {
  1499.        gsl_test_rel(X[i], x_expected[i], dbleps, "drotm(case 772)");
  1500.      }
  1501.    };
  1502.    {
  1503.      int i;
  1504.      for (i = 0; i < 1; i++) {
  1505.        gsl_test_rel(Y[i], y_expected[i], dbleps, "drotm(case 773)");
  1506.      }
  1507.    };
  1508.   };
  1509.  
  1510.  
  1511. }
  1512.